home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe82 < prev    next >
Text File  |  2007-02-28  |  1KB  |  58 lines
  1. 0010 //* BUTCHER BACON'S PROGRAM *//
  2. 0020 //* WRITTEN BY CHRISTIAN BORGE *//
  3. 0030 //
  4. 0040 DIM NAME$ OF 30, DATE$ OF 10
  5. 0050 //-MAINLINES-//
  6. 0060 PRINT "ENTER DATE (YY/MM/DD)",
  7. 0070 INPUT DATE$
  8. 0080 REPEAT 
  9. 0090 TAKEIN
  10. 0100 PRINTOUT
  11. 0110 PRINT 
  12. 0120 PRINT "MORE LETTERS (1=YES/0=NO)",
  13. 0130 INPUT CODE
  14. 0140 UNTIL CODE=0
  15. 0150 //
  16. 0160 PROC TAKEIN 
  17. 0170 PRINT "WHO IS GOING TO BE PRESSED",
  18. 0180 INPUT NAME$
  19. 0190 PRINT "HOW MUCH MONEY",
  20. 0200 INPUT AMOUNT
  21. 0210 PRINT "PRESSED HARD (1=YES/0=NO)",
  22. 0220 INPUT LEVEL
  23. 0230 FOR I:=1 TO 3 DO PRINT 
  24. 0240 ENDPROC TAKEIN
  25. 0250 //
  26. 0260 PROC PRINTOUT 
  27. 0270 PRINT CHR$(147), //CLEAR SCREEN
  28. 0280 PRINT "              ODDINGTON, ",DATE$
  29. 0290 PRINT 
  30. 0300 IF LEVEL=1 THEN
  31. 0310 RUDELETTER
  32. 0320 ELSE 
  33. 0330 KINDLETTER
  34. 0340 ENDIF 
  35. 0350 ENDPROC PRINTOUT
  36. 0360 //
  37. 0370 PROC KINDLETTER 
  38. 0380 PRINT "DEAR ",NAME$
  39. 0390 PRINT 
  40. 0400 PRINT "YOU ARE KINDLY ASKED TO PAY OUR"
  41. 0410 PRINT "OUTSTANDING ACCOUNT OF ",AMOUNT," POUNDS"
  42. 0420 PRINT "AT YOUR EARLIEST CONVENIENCE."
  43. 0430 PRINT 
  44. 0440 PRINT "SINCERELY,"
  45. 0450 PRINT "ALFRED BACON."
  46. 0460 ENDPROC KINDLETTER
  47. 0470 //
  48. 0480 PROC RUDELETTER 
  49. 0490 PRINT NAME$
  50. 0500 PRINT 
  51. 0510 PRINT "IF YOU HAVE NOT PAID THE ",AMOUNT," POUNDS"
  52. 0520 PRINT "YOU OWE US WITHIN 8 DAYS FROM TODAY,"
  53. 0530 PRINT "THE MATTER WILL BE PLACED IN THE HANDS"
  54. 0540 PRINT "OF OUR SOLICITORS."
  55. 0550 PRINT 
  56. 0560 PRINT "A. BACON."
  57. 0570 ENDPROC RUDELETTER
  58.